home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMDLG7 / COMONDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-10  |  3KB  |  138 lines
  1. {µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
  2. {   \\\                                    }
  3. {  -(j)-                                   }
  4. {    /juanca                               }
  5. {    ~                                     }
  6. {   ⌐ ACASA 1989-1992, All rights reserved }
  7. {µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ}
  8.  
  9. { tCommonDlg object, descendand of tDialog, base to OWL objects that shell Common Dialogs }
  10.  
  11. UNIT COMONDLG;
  12. {$C MOVEABLE DEMANDLOAD DISCARDABLE}
  13. INTERFACE
  14.   USES
  15.     WINTYPES,
  16.     OBJECTS,
  17.     OWINDOWS,
  18.     ODIALOGS,
  19.     COMMDLG;
  20.  
  21.   CONST
  22.     cn_MaxCString = 255;
  23.  
  24.  
  25.   TYPE
  26.     tCString = array[0..cn_MaxCString] of Char;
  27.  
  28.     pCommonDlg = ^tCommonDlg;
  29.     tCommonDlg = OBJECT ( tDialog )
  30.  
  31.  
  32.       CONSTRUCTOR
  33.       init(iparent:PWindowsObject; name :PChar);
  34.  
  35.       DESTRUCTOR
  36.       done;
  37.         virtual;
  38.  
  39.       PROCEDURE
  40.       ok(var msg :TMessage);
  41.         virtual
  42.           id_First + id_Ok;
  43.  
  44.       PROCEDURE
  45.       cancel(var msg :TMessage);
  46.         virtual
  47.           id_First + id_Cancel;
  48.  
  49.       FUNCTION
  50.       create :Boolean;
  51.         virtual;
  52.  
  53.       FUNCTION
  54.       execute:Integer;
  55.         virtual;
  56.  
  57.       FUNCTION
  58.       dlgTitle :PChar;
  59.         virtual;
  60.  
  61.     END;
  62.  
  63.  
  64. {****************************************************************}
  65. IMPLEMENTATION
  66.   USES
  67.     WINPROCS;
  68.  
  69.  
  70.       CONSTRUCTOR
  71.       tCommonDlg.
  72.       {}
  73.       init(iparent:PWindowsObject; name :PChar);
  74.         begin
  75.           inherited init(iparent, name);
  76.           disableTransfer;
  77.         end;
  78.  
  79.       DESTRUCTOR
  80.       tCommonDlg.
  81.       {}
  82.       done;
  83.         begin
  84.           inherited done
  85.         end;
  86.  
  87.  
  88.       PROCEDURE
  89.       tCommonDlg.
  90.       {}
  91.       ok(var msg :TMessage);
  92.         begin
  93.           msg.result := Word(not canClose)
  94.         end;
  95.  
  96.  
  97.       PROCEDURE
  98.       tCommonDlg.
  99.       {}
  100.       cancel(var msg :TMessage);
  101.         begin
  102.           msg.result := 0
  103.         end;
  104.  
  105.       FUNCTION
  106.       tCommonDlg.
  107.       {}
  108.       create :Boolean;
  109.         begin
  110.            abstract
  111.         end;
  112.  
  113.       FUNCTION
  114.       tCommonDlg.
  115.       {}
  116.       execute:Integer;
  117.         var
  118.           result :Integer;
  119.         begin
  120.           result := commDlgExtendedError;
  121.           if result = 0
  122.           then
  123.             execute := id_Ok
  124.           else
  125.             execute := -result
  126.         end;
  127.  
  128.       FUNCTION
  129.       tCommonDlg.
  130.       {}
  131.       dlgTitle :PChar;
  132.         begin
  133.           { override this to give the dialog a title different from default}
  134.           dlgTitle := nil
  135.         end;
  136.  
  137.  
  138. END.